home *** CD-ROM | disk | FTP | other *** search
/ Sprite 1984 - 1993 / Sprite 1984 - 1993.iso / lib / perl / stdlib.ph < prev    next >
Encoding:
Text File  |  1991-08-12  |  820 b   |  39 lines
  1. if (!defined &_STDLIB) {
  2.     eval 'sub _STDLIB {1;}';
  3.     require 'cfuncproto.ph';
  4.     if (defined &KERNEL) {
  5.     require 'sprite.ph';
  6.     require 'sys/types.ph';
  7.     }
  8.     eval 'sub EXIT_SUCCESS {0;}';
  9.     eval 'sub EXIT_FAILURE {1;}';
  10.     if (defined( &_HAS_PROTOTYPES) && !defined( &_SIZE_T)) {
  11.     eval 'sub _SIZE_T {1;}';
  12.     }
  13.     if (defined &KERNEL) {
  14.     if (!defined &mips) {
  15.         if (defined &lint) {
  16.         eval 'sub free {
  17.             local($ptr) = @_;
  18.             eval " &_free($ptr)";
  19.         }';
  20.         }
  21.         else {
  22.         eval 'sub free {
  23.             local($ptr) = @_;
  24.             eval "{ &_free($ptr); ($ptr) = ( &Address)  &NIL; }";
  25.         }';
  26.         }
  27.     }
  28.     else {
  29.     }
  30.     }
  31.     else {
  32.     }
  33.     eval 'sub MEM_PRINT_TRACE {0x1;}';
  34.     eval 'sub MEM_STORE_TRACE {0x2;}';
  35.     eval 'sub MEM_DONT_USE_ORIG_SIZE {0x4;}';
  36.     eval 'sub MEM_TRACE_NOT_INIT {0x8;}';
  37. }
  38. 1;
  39.